RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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DDDDDDDD 000000 FFFFFFFFFF LL GGGGGGGG 

DD DD 00 OO FF LL GG 

DD DD 00 oO FF LL GG 

DD DD 00 0O FF LL GG 

dD DD 00 oO FF LL GG 

dD DD 00 OO FFFFFFFF LL GG 

DD DD 00 OO FFFFFFFF LL GG 

DD DD 00 OO FF LL GG GGGGGG 

DD DD 00 OO FF LL GG GGGGGG 

DD DD 00 OO FF LL GG GG eee 
DD DD 00 0O FF LL GG GG cece 
DDDNDDDD 000000 FF LLLLLLLLLL GGGGGG eee 
DDDDDDDD 000000 FF LLLLLLLLLL GGGGGG eee 
LL IIIIII SSSSSSSS 

LL HII! SSSSSSSS 

Li I] SS 

LL I] S$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL IIIIII SSSSSSSS 

LLLLLLLLLL IIIII1 SSSSSSSS 
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Process flags rbese -1984 00:13:49 VAX-11 Bliss-3 age 1 
8 12-808- 138 90: bab DISKSVMSMASTER: CRUNOFF.SRCIDOFLG.BLI 79 (1) 
0 TITLE ‘Process hage 
MODULE DOFLG ( IDENT = ‘yv04-000' 
Pe 48L1SS$32 » ADDRESSING_MODE ( EXTERNAL = LONG_RELATIVE 
' NONEXTERNAL = LONG-RELATIVES] 
J 


BEGIN 


SRE RARER EAA E AERA AAA ERATE AERA REREEE eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


:* THIS SOFTWARE ss FURNISHED UNDER A LICENSE AND MAY BE USED AND aod Lo 
!* ONLY ye ey . og BY THE TERMS OF SUCH LICENSE AND ae THE 


® 
® 
® 
® 
te 
® 
*® 
ie INCL F TWARE * 
it COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY + 
TRANSFERRED. s 

*® 

iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
® 

® 

* 

*® 

* 

® 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MO OVONOUEWN (OO ODNOUFS WR" OODONOUE WN OOONOUS WN 
Ok kk kk tk kk at nt a a  IOODOOO 
cm 


SHE EAAMM NANI PII NININININID 2 2 OO oe 


0 LR EER AERA EAA AAA 
! 

$0 i+¢ 

O08 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

0034 i ABSTRACT: Flag processing 

0035 ' 

0036 ! 

tte ENVIRONMENT: Transportable 

0079 i AUTHOR: R.W.Friday 

0040 ! 

0041 ' CREATION DATE: April 1978 

0042 ! 
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flags 16-Sep-1984 00:13:49 VAX-11 Bliss-3 
Hi Story 1228671 382 90:08:00 DISKSVMSMASTER 
RSBTTL "Revision History’ 
i MODIFIED BY: 


' 
020 REM00020 Ray Marshall 17-November-1983 
Added —— logic for the case rules for the DEC multi- 


national character set. 

019 KFA00019 Ken Alden 06-0c t-1983 

For DSRPLUS: Removed call to endwrd during pass-through 
018 KFA00018 Ken Alden |SeSepn 196s 

For DSRPLUS: Added sca_wrd_pass for ENDWRD cooperation. 
017 KFA00017 Ken Alden 11-Jun-1983 

Fixed the bolded, underline TAB bug. 
016 KFA00016 Ken Alden 21-Mar-1983 

Removed error message RNFIPF. 
015 KFA00015 Ken Alden 21-Mar-1983 


Eliminate the Passthrough flag, functionality now works 
with accept flag 


014 KAD00014 Keith Dawson 20-Mar-1983 

Fixed bug: passthrough was visible to DSR. 
013 KFA00013 Ken Alden 15-Mar-1983 

For DSRPLUS: added recognition of passthrough flag 
012 KAD00012 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


2.V4.0-7 
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V4.0-742 Page 3) 
-Sep-1984 79 


3 
DISKSVMSMASTER: CRUNOFF .SRCJDOFLG.BLI (3) 


; 80 07 ' Z%SBITL "Module Level Declarations’ 

: 8 0 01! 

. &§ 5 1 | TABLE OF CONTENTS: | 
| BS Bad 
: 8 0084 1 FORWARD ROUTINE | 
; 8 085 1 SUBXR : NOVALUE, 'Used by .SUBINDEX and .ENTRY commands 

; we BORS 1 XR : NOVALUE; !Used for processing Index flag 

|g boss 1! 

: 91 0089 1 | INCLUDE FILES: | 
oe $0971 

> 94 009¢ 1 LIBRARY "NXPORT:XPORT’; ! XPORT Library 

3 +4 o397 : REQUIRE "REQ:RNODEF'; ' RUNOFF variant definitions 

: 97 U 03 5 1 XIF DSRPLUS X%THEN 

: 98 U 0226 1 LIBRARY ‘REQ:DPLLIB'; ! DSRPLUS BLISS Library 

> 99 0227 1 XELSE 

: 100 0228 1 LIBRARY "REQ:DSRLIB’; ! DSR BLISS Library 

: 101 0 $9 1 iF] 

See ar 

> 104 0 3 1 | MACROS: 

Be Rey 

> 107 0235 1 | EQUATED SYMBOLS: 

: 108 oss Ti 

: 110 sat 1 | OWN STORAGE: 

He Bea 

: 113 $524 1 | EXTERNAL REFERENCES: 

He Big 

: 116 0244 1 EXTERNAL LITERAL 

; 17 0245 RINTES : UNSIGNED (8); 

: 119 0247 1 EXTERNAL 

> 120 0248 1 FLGT : FLAG_TABLE CFLAG_COUNT), 

; 121 0249 IRA FIXED"STRING, | 
; 123 0291 1 MRA : REF FIXED. STRING, 
: 126 0 38 1 SCA : SCA_DEFINITION, 

> 125 0253 1 TSF : TSF DEFINITION, 

: 126 0254 1 XMRA : FIRED STRING, 

: 44 8 2? ' ; XTSF : VECTOR; 
; 129 0257 1 EXTERNAL LITERAL ! Error messages 
> 130 0258 1 RNFFEL, 

: 131 59 1 RNFFNA. 

: 132 60 1 RNFLOC, 

: 13 61 1 RNFLTC, 

: 134 6¢ RNF STR: 

: 136 0264 71 EXTERNAL ROUTINE 
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22> 


DOO TUIM TN OR- OOO 
MWS TST ITT TIN 
Se el el ol el ol el ol lo ld 


GLOBAL ROUTINE DOFLG : NOVALUE = 


— 
SISSY 
Vwrs 


SLSSRALLSSSLESRAS LS SSVSALAVELS SSNS ARANASSSIFSAFATLS SELF 


14 
} FUNCTIONAL DESCRIPTION: 


FORMAL PARAMETERS: None 
IMPLICIT INPUTS: 
; KHAR contains the character (flag) to be processed. 
IMPLICIT OUTPUTS: None 

; ROUTINE VALUE: 
¢ 
le 


O00 00090000 CD CD CD CD0D 


VFN — SO OBNAUES WN" O OONOULS WO” 


OMPLETION CODES: None 
SIDE EFFECTS: None 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
OWN 
SCA_DO_HOLD, 
SCA_WRB_CHOLD; 
LOCAL 
WHICH_FLAG; 
4 
4 
& 
4 


ooo 


WHICH_FLAG = FNDFLG (.KHAR); ‘Identify the flag to be processed. 
CASE MECN UNS FROM 0 TO FLAG_COUNT - 1 OF 


coe ees : 
‘Substitute flag 
ZIF dsrplus ZTHEN 
newsub (); 
SUBST (); 


RETURN; 
END; 


cc 


CDOSOSOOOCOCOOCOOOOOOCOCOCOCOCOCOOCOOCOOOCSOOOOCOCOOOOOOOOOOOO 


AAA. AAA AAAI Ww 
et et ot ot = = = I IOOO 


a a ee kd dd od 
WONOULS WN —O0O@ 


CQUO_FLAG) : 
GIN 


‘Quote fla 
KCNS (); ° 'Get next character. 


IF .KHAR EQL RINTES 
THEN 
BEGIN 
ERM (RNFFEL, CHSPTR (UPLIT ("ACCEPT’ 6) 


)), 6); 
ERMS (RNFSTR, .FS_START (IRA), CHSDIFF (.FS_NEXT (IRA), .FS_START (IRA))); 
RETURN; ! Ignore a Quote flag at the end of the Line. 


WAAL A AAAI AAI AAAI 
RUN = SSaoNoreun—o 
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vOee Module Level Declarations 12-80 8=138e 99:08:60 DISKSVMSMASTER:CRUNOFF .SRCIDOFLG.BLI:1~ uuS Vous 
$ END 
ELSE ! 
8 BEGI 
SCA_FRC_CHR = TRUE; 'Don't translate this character. 
ENDCHR T.KHAR); ‘Output character as is. 
KCNS (); 'Get next character. 
RETURN; 
BEG! 


‘Uppercase fla 
KChS 0); ° 'Get next character. 


ae EQL .FLGT CUPP_FLAG, FLAG_CHARACTER] 
BEGIN 'Doubled Uppercase flags 
SETCAS (LEAVE_CASE); 
SCA PAE CASE = TRUE; 


N : 
RETURN; 
END; 


iF (.KHAR EQL .FLGT CCAP_FLAG, FLAG. CHARACTER]? 
AND .FLGT CCAP_FLAG, FLAG. ENABLED] 


‘Uppercase flag followed by Capitalize flag (i.e., “<) 


SETCAS (FORCE_UPPER); 
Sta FRC_CASE = TRUE; 
RETURN - 

END; 


IF (.KHAR EQL ,FLGT CUND_FLAG, FILAG CHARACTER]) 
AND .FLGT CUND_FLAG, FLAG. ENABLED] 


HEN 
‘Uppercase flag followed by Underline flag (i.e., “&) ; 
BEGIN 'Turn on global underlining 


SN NNN NNSA AAA AAAAA AMI ES BPP 


| 
END; 
CUPP_FLAG) : 
N 
SCA_UND = TRUE; 
SCA-WRD_C_UND = .SCA_DO_UND; 
KCNS ()3 
RETURN; 
END; 


CoCNOo~—~ r~ 
MEUN —OOWDNA USN) (OO OONG UE WO OONAULSWN OOS NAUE WN oO 


WWWNA.ANI WANNA AWWA ANNA WWW AAA AWWW 


IF (.KHAR EQL .FLGT CBLD_FLAG, FLAG CHARACTER) 
AND .FLGT CBLD_FLAG, FLAG. ENABLED) 


PUPP AIST BB BS BS EE EE BANANA IAI AI ROP NIPUNIPUNINIDYD 2 2 SS OS 


| 

é | 

‘Uppercase flag followed by Bold flag (i.e., “*) | 
BEGIN ‘Turn on global bolding 

SCA_BLD = T | 

| 

| 


* RUE; 
SCA_WRD_C_BLD = .SCA_DO_BLD; 
KCNS (); 

RETURN; 

END 


o 


AAWANAW 


teh es 
m—OCO0OM@ 
WEES FS FWA EHS BEF EWI BEF EWI BW BBB FWA BEEP 


Be Se Ge Se Oe Se Se Se Se Be Se Se Be Se Ge Se Ge Fe Se Se Be Ge Se Ge Ge Ge Se Se Fe Se Ge Se Se Se Ge Se Se Ge Se Se BH Se Se Se Se Se Se Oe Se Se ee Ge Ge BH Se Seas 
SOOOOCOCOCOOCOCOCOOOCOCOCOCOCOCO COCO OOOCOCOCOCOOCOOCOOCOOOCOOCOOOoO 
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- Module Level Declarations - , 


CLOW_FLAG) : 
BEGIN 
‘Lowercase flag 
KCNS (); 'Get next character. 

—— EQL .FLGT CLOW_FLAG, FLAG_CHARACTER] 


! Doubled Lowercase flags 


6 93 | 
5 u 0394 3 XIF DSRPLUS XTHEN 
68 U 0395 IF (.KHAR EQL ,FLGT CQUO_FLAG, FLAG CHARACTER)) 
69 \ 0396 rugniN® «FLGT CQU0_FLAG, “FLAG ENABLED 
71 U 039 !Uppercase flag followed by Accept flag (i.e., *_) 
te U 35 BEGIN . . , Fern on global accept 
7 U 0400 sca_pass = true; ‘Now passing through (ENDCHR) 
74 U 0401 sca_wrd_pass = true; ‘This ‘word’ is a passthr. (ENDWRD) 
75 U 10 sca_do_fold = .sca_do_nbits; 'Save status of bold/under 
7 U 04 sca_wrd_chold = .sca_wrd_cnbits; | 
7 U 0404 sca_do_nbits = false; ‘and turn it temp. off. 
78 U 0405 sca_wrd_cnbits = false; ' 
79 U 040: K 3 
80 U 040 RETURN; 
$B U 0408 END; 
8 U 0409 
$i -s 'Thi ts d f U fl di l 
'This gets done for an Uppercase flag standing alone. 
85 SCA_FRE-CHR = TRUE; . . | 
286 SCA_LWRD_FC_LT = ZC°A® = &C‘a'; 
87 SCATWRD-OC"LT = XC'A' = XC'a'; 
88 SCA_WRD_FC_UT = 0; 
389 SCALWRD-OC-UT = 0; 
$91 SCA_MNWRD_FC_LT = ZDECIMAL 192° - ZDECIMAL (2241; 
29 SCA-MNWRD-OC-LT = XDECIMAL'192° = %DECIMAL'224': 
29 SCATMNWRD-FC"UT = 0; 
SCA-MNWRD-OC_UT = 0; 
95 RETORN 
96 : 
97 
98 
| 


BS Se oe oot et ot nt et et et ek ak ee ake ae ae ae ek et ek et et et et et et et 


PREPS ES & FAWN DINPINPIPININININYNY 2 2 OO Ow oe 


DEW 0 OO NOU EWN | O OONOAOUE WN (“OOO NOU SW O 


Sete Se Se Se Ge Be Se Se Se Be Se Se Se Se Se Ge F. Be Ge Ge Be Se Se Fe Se Ge Ge Ge Se Ge FF Ss Se Ge Se Se Se SESH Se Se Se Se Se Se Se Se Se Se Se Se Geese Se teas 
Mm 
o 
= 


WINE BEF EWI EH & BF EWI PIN IW Ww 


SLPLLLRELEREREREERRRRRRRRRRRRRRREREREERE > 
> = 


99 
00 
i 
308 
soe 
05 BEGIN 
06 SETCAS (FORCE_LOWER); 
07 SCA_FRC_CASE = TRUE; 
08 KCN 3 
09 RETURN; 
19 END; 
1¢ IF (.KHAR EQL ,FLGT CUND_FLAG, FLAG CHARACTER)) 
i3 AND .FLGT CUND_FLAG, FLAG. ENABLED) 
15 ‘Lowercase flag followed by Underline flag (i.e., \8) re | 
16 BEGIN !Turn off global underlining 
17 SCA_UND = FALSE; 
18 SCA_WRD_C_UND = FALSE; 
19 KCNS (); 
0 RETURN; 
} END; 


Ooo 


vOe=fo0 


WNW 


5 a et et et et 


car 
WN O SBNOUES WN (“OO DNOUE WN SOO DNAUE WN “OO OODNOULSW 


WA AAIAI AAAI AAA AAW 
SIP SS LAI INTOIN DE 


SESS 
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450 4 IF (.KHAR EQL ,FLGT CBLD_FLAG, FLAG CHARACTER)) 
491 ; AND .FLGT CBLD_FLAG, “FLAG. ENABLED) 
4 : ‘Lowercase flag followed by Bold log, (i.e. 
454 4 IN Turn oft global bolding 
455 4 SCA -BLD = FA LSE; 
4 8 4 SCA_WRD_C BLD = FALSE; 
4 4 KCNS ()F 
+28 4 RETURN; 
O86 ae 
Bo8) ZIF DSRPLUS XTHEN 
106 IF —— EQL .FLGT CQUO_FLAG, FLAG CHARACTER])) 
0463 .FLGT CQUO_FLAG, “FLAG. ENABLED] 
0465 ‘Lowercase flag followed by Accept flag (i.e 
046 Turn off *alsbat Accept 
444 tween PASS EQL TRUE 
0469 Th po 
0470 SCA NBITS = .SCA_DO_HOLD; 
oer) SCA “WRB _CNBITS = .SCA_QRD_CHOLD; 
0475 sca PASS = FALSE; 
0475 RETURN; 
ed ZF I _ 
0478 ; ‘Lowercase A RD standing alone 
0479 SCA_FRC_CHR + 
0480 3 SCA_WRD-FC_UT = tei ‘= ZC'A'; 
0481 SCATWRD-OC_UT = XC'a' = XCtA': 
paes 3 SCA_WRD-FC_LT = 0; 
bez 3 SCA_WRD-OC"LT = 0; 
0485 : SCA_MNWRD_FC_UT = X%DECIMAL'224" = XDECIMAL'192': 
0486 3 SCATMNWRD-OC-UT = XDECIMAL'224" = XDECIMAL'192°: 
0487 SCA-MNWRD-FC"LT = 0; 
0488 3 SCA-MNWRD-OC-LT = 0; 
0489 RETURN 
a vs 
049 CPER_FLAG) : 
49 BEGIN 
494 Capitalize flag” 
0495 SCA_WRD_LC_PNCT = .SCA_FILL; ‘Double space only if 
p636 KCNS ()F ‘Discard the flag. 
198 : 
99 CBRK_FLAG) : 
00 BEGIN 
1 'Break flag 
§ KCNS (); 'Skip over flag. 
5 4 IF (.SCA_WRD_CPEND EQL »PINTES) : 
06 4 OR (TKHAR EQL XC’ 'Space? 
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‘Restore status of bold/under 
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Line 
NEXT (IRA), .FS_START (IRA))) 
‘End word with no spacing or justification. 


», 5)3 
CHSDIFF (.FS_NEXT (IRA), .FS_START (IRA))); 
'Do not cap next character. 


Restore global case rules 
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Declarations 


IF_ .SCA_X_FLAG 
THEN 


‘A Space, flag completes a sequence started by the Index flag. 


IF _ .SCA_WORD_SET 
THEN 


'A Space {leg terminates a sequence started by 
2 


'the Capitalize flag. 
WORD_SET 
= 


“oO 
£ceccon"onr"e 2a 
DDDVBOOMOO 

NOuwnuwnwi 
HUHHROOOO 
>>>>r" 


END; 
SCA_WRD_C_UND = FALSE; 
ENDTHR TXC* '); 
SCA_FRC_CASE = FALSE; 
SCA_FC_CASE = TRUE; 
KCNS (J; 

RETURN; 
END; 
CIND_FLAG) : 
BEGIN 
' Index flag 
IF .SCA_XROUTINE 


RETURN; 
END; 


CHYP FLAG) : 
'Hyphenation fla 
K i ); ° 


IF (.SCA_WRD_CPEND EQL RINTES) 


OR (7KHAR EQL 2C 


aginst —+ 
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‘Restore global case rules 


SE; 
CBE_UT; 
CBE_UT; 
CBE_LT; 
CBE_LT; 
CA_FCBE_UT; 
CA_OCBE_UT; 
CA_FCBE_LT; 
CA_OCBE_LT; 
MNF CBE_UT; 
_MNOCBE_UT; 
—MNFCBE_LT; 
MNOCBE _LT; 
"SCA_MNFCBE_UT; 
- SCA_MNOCBE_UT; 
« SCA_MNFCBE_LT; 
-SCA_MNOCBE_LT 
‘Do not underline this type of space unless forced. 


‘Output a space 
‘Handle case as if a new word. 


: Skip flag. 
iSpace? 


6 ! 
FLG Process flags 1§- Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 12. 
v04-000 Module Levet Declarations 14- =Sep- 3b 99:08 DISKSVMSMASTER: CRUNOFF . SRCIDOFLG.BLI:1° snd 
; 1 678 4 OR (.KHAR EQL %0'011") 'TAB?? 3 
; 5 : Moe: EN : 
; 680 henate before/after a space/tab or sta aging a line ‘ 
; 3 ¢ be 1 aif (RNFFNA, .FS eSTART. i A), CHSDIFF (.FS_NEXT (JRA), .FS_START (IRA))) : 
; 556 4 IF_.KHAR EQL RINTES 
3 22% be 5 THEN : 
: 228 BoBs & BEGIN : 
$ 60 0687 4 ER aR (RNFFEL, CHSPTR (UPLIT ('HYPHENATE')), 9); : 
: 20) bess : ERM (RNF STR, eFS_START (IRA), CHSDIFF (.FS_NEXT (IRA), .FS_START (IRA))); ; 
oo Ry Nt RS hl ge : 
3 phenation between some text is o 3 
: 365 0692 iF SCA_DO_HYP : 
; 566 069 ; THEN 3 
; 567 0694 tHyphenat ion is only done if user said : 
> 568 0695 3 'to do it (.HYPHENATION). Otherwise it's ignored. : 
; 569 0696 4 BEGIN 3 
; 3 0697 4 ENDWRD (FALSE, pA Se. TRUE); :End word with hyphenation. 3 
g 37) 0698 4 SCA_FC_CASE = FALSE; 'Do not cap next character. 3 
; Ie: 0699 ; ; 3 
3; of 0700 RETURN; : 
; 574 0701 2 END; 3 
3 Sf Bre 2 3 
; 576 070 ¢ COVR_FLAG) : $ 
3 S77 0704 Be : 
; ore 0705 3 '‘Overstrike flag : 
, Sr 0706 3 KCNS (); 3 
: 580 0707 3 ; 
; 581 0708 3 IF .KHAR EQL RINTES 3 
: 582 0709 3 THEN 3 
3 S85 0710 4 BEGIN 3 
3; 584 0711 4 ERM ett CHSPTR (UPLIT ("OVERSTRIKE')), 10); H 
s 58s orig 4 ERMS FSTR, “FS START (IRA), CHSDIFF (.FS NEXT (IRA), .FS_START (IRA))); ; 
: 586 0713 4 RETURN: ' Ignore Overstrike flag at the end of a Line. 3 
; 587 0714 3 3 3 
; 588 0715 ; 3 
: 589 0716 IF .SCA_WRD_CPEND EQL RINTES $ 
; 590 0717 3 THEN 3 
; 591 0718 4 BEGIN 3 
3 Fe 0719 4 'OVERSTRIKE flag standing alon $ 
3; 593 0720 4 ERMS (RNFFNA, .FS_START IRA). CHSDIFF (.FS_NEXT (IRA), .FS_START (IRA))); 3 
; age ps! 4 END 3 
3; 595 07 ; ELSE : 
; «59: 072 IF .SCA_DO_OVR : 
; Wy 0724 THEN ; 
; 598 0725 ‘User did not say .NO OVERSTRIKING, so really overstrike. : 
; 599 brs 4 BEGIN 3 
; 600 0727 4 IF (.FS -MAXSIZE — - .FS_LENGTH (MRA)) LSS 3 : 
: 601 0728 4 N 'No m for overstrikin ng co code 3 
; 60 Or $2 4 ERMS (RNFLIC,. oFs NEXT (IRA), .FS_LENGTH (IRA)) : 
; 60 0730 4 ELSE 3 
: ope 03 4 ‘Generate overstriking code. : 
; 606 738 é FS_WCHAR (MRA, RENAE S 
; 607 0734 5 FS-WCHAR (MRA, %C‘O') | 


dD 6 
DOFL Process flags 16-Sep-1984 00:13:49 VAX-11 Bliss-32 V4.0-742 p 13) 
MO4eS00 Module Lovet Declarations 14- =Sep- 1382 90:08:00 DISKSVMSMASTER: CRUNOFF .SRCIJDOFLG. BLI:1. a} 
; 608 735 FS oe ee »KHAR); 
; 609 7 § SCA_ WRD ~SCA_WRD_INT_L + 3; 
; 610 7 SCA_WRD -OVRE RUE 
3 oF 4 3 4 - END; 
fo RY T Pee 
3 § ! Get next character. 
: 615 Ore RETURN; aaa | 
; 616 74 END; 
3; 617 0744 
: 819 re it ae Meena th ty | 
; 620 U kd 
; g : y ok ilf not indexi d, th h fl 
: not an indexing command, then treat the Nopermute fla 
; 6 4 U 0750 ‘as an Org abe shieantare’ . . 
: 624 U 0751 IF NOT .TSF 
3 629 U OF 26 THEN 
: $3] y ore 2 tien (. KHAR) '0 h i 
3 ‘ 3 'Output character as-is. 
S628 uo7ss 5 KCNS (0; : 
g 4 U 0756 § RETURN; 
; 630 U 0757 END; 
: 83) 4 0789 5 KENS © 1Positi he fl | 
5 ; 'Position past the flag. 
3 633 u 0760 2 4 . 
; 634 U 0761 2 IF .TSF_XYPLUS !Do no more unless this was an .XP/.YP command. 
s 635 U hE 2 THEN 
: 636 U 0763 2 BEGIN 
3; 637 U 0764 2 IF (.SCA_WRD_CPEND NEQ RINTES) 
; 638 U 0765 2 R (.KHAR EQL XC ') 'Space? 
> 639 U 0766 2 OR (.KHAR EQL %0'011") iTab? 
3 640 U 0767 2 N 
3; 641 U 0768 2 
; “6 U 0769 2 'Nopermute before a ope ce/tab or in the middle of a word 
; 64 u 0770 2 ERMS (RNFFNA, .FS_STARTCIRA), CHSDIFF (.FS_NEXTCIRA), .FS_STARTCIRA))); 
3 644 U 0771 2 RETURN; 
3; 645 U 140: 2 END; 
> 646 u 0773 3 | 
3 647 U 0774 3 IF .KHAR EQL RINTES 
: 648 U 0775 THEN 
649 u 0776 3 BEGIN | 
; 650 U 0777 ERM wt CHSPTR (UPLIT ("*NOPERMUTE')), 9); 
> 651 U 778 ERMS (RNFSTR, .FS_START (IRA), CHSDIFF (.FS_NEXT (IRA), .FS_START (IRA))); | 
; $26 U 077 “» 
; 65 U 0780 3 
3: 654 U 0781 
; 655 U § IF (.FS_MAXSIZE (MRA) = .FS_LENGTH (MRA)) LSS 3 
3 636 U 078 THEN 
; «65 U 0784 BEGIN room for nopermute code. 
; 658 U fF byl net oFS_NEXT crap. ors. LENGTH (IRA)); 
3; 659 U 0786 RETUR 
: 660 U 0787 3 
3; 661 U 07 8 
: 66¢ U 07 'Now generate the peepereees escape sequence. 
: 66 U 0790 FS_WCRAR (MRA, RINTES 
3 664 U 0791 FS “WCHAR (MRA, %C°P'); 
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oO 
~ 
xo 


FS WCHAR (MRA, %C' '); 
3t ar D_INT_L = .SCA_WRD_INT_L + 3; 


END; 
CINRANGE) : 
BEGIN 
KCNS 0; 
U 


XFI 


COUTRANGE) : 
BEGIN 


TES; 
RETURN; 
END; 
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~-PSECT SOWNS,NOEXE,2 


00000 SCA_DO_HOLD: 


; 4 
00004 SCA_WRD_CHOLD: 
.BLKB 


4 


eAAA: .ASCII \ACCEPT\<0><0> 
‘ e+% I \BREAK\<0><0><0> 
-AAC: .ASCII \HYPHENATE\<0><0><0> 
«AAD: .ASCII \OVERSTRIKE\<0><0> 


-EXTRN RINTES, FLGT, IRA 


EN DCHR ENDWRD 


. M, ERMS, FNDFL 
EXTRN OUTLIN, OUTXPH, Susst 
-EXTRN RSKIPS, SETCAS 


-PSECT S$CODES,NOWRT,2 


sf Mae 
MOVAB B AAA Re R7 
MOVZBL #RINTES, R6 


Pp 
- SRCIDOFLG.BLI; 


99 .ENTRY DOFLG, Save R2.R3,R4,R5,R6,R7,R8,R9,R10,R11 
0 MOVAB XR, R11 
MOVAB ENECHR, R10 
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wes : Be GAAS ease hs pao 8 
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98 dh $536 OSV BL RG. KHAR : 
$? 01 CE 00 ii MNEGL “ 1RA+12 ; 
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64 be O2AD DECL  IRA+12 3 
65 D1 8 AF 42$: CMPL KHAR, #9 : 0609 
” 01 12 00 B2 rite BNEG 44$ a 
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#RNF FEL 

#3, ERM 

IRA, IRA+4, -(SP) 
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IRA, IRA+4, =(SP) 
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6 
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'Ski spaces/tabs preceeding the next item. 
RSKIPS (IRA); 


iReke sure user didn’t put the Subindex flag at the end of 
'the Line. 

IF .KHAR EQL RINTES ‘End of Line? 

THEN 
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v04-000 Module Level Declarations 12-8681 984 99: b8:60 DISKSVMSMASTER:CRUNOFF .SRCIDOFLG.BLI:1>— 3) Vv 
1 GLOBAL ROUTINE SUBXR : NOVALUE = ‘ 
688 '++ : 
O82 FUNCTIONAL DESCRIPTION: : 
691 i This routine is called when RUNOFF is processing a .SUBINDEX or 
69 : «ENTRY command, and a Subindex flag is encountered. The character . 
69 ' sequence that the previous Subindex flag started is terminated, and the ; 
$98 } next one is set up. : 
69 | FORMAL PARAMETERS: None : 
698 i IMPLICIT INPUTS: None : 
700 i IMPLICIT OUTPUTS: None : 
70 i ROUTINE VALUE: ; 
108 i COMPLETION CODES: None : 
Aes SIDE EFFECTS: None 
707 len : 
708 : 
709 : 


BEGIN 
ERM (RNFFEL, CHSPTR (UPLIT (*SUBINDEX')), 8); 
ERMS (RNFSTR, .FS_START (IRA), CHSDIFF (.FS/NEXT (IRA), .FS_START (IRA)) = 1); 


END; 


'Make sure user didn’t put the Subindex flag at the start of the Line. 
'The check for the start of the Line is done by seeing if there 
‘is anything in the index output buffer yet, as would be the case 
‘if the two pointers are indeed equal. On top of that, it's 
‘important to take account of single-character entires. Remember 
‘that ENDCHR won't put a character into the MRA until the next 
‘character forces it out. So checking for it being the first character 
‘detects the one-character-entry case. 

‘First character? 


~SCA_FC 'F 
AND™(.FS_START (MRA) EQL .FS_NEXT (MRA))!Start of Line? 


MAMAVIVIVIVIV AWWAAAAAAA ANI IPIPINPOPIPONPOMPNYD 2 OO OO 
OOO NAUE WIN $9 ODN UNE WIN OOD NOUSWN SOOONOUS 
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1 

1 
BEGIN 
poL eens position past the Subindex flag 
KCNS (); 


Be Se Oe Be Oe Be Se Be Be Se Se Se Se Se Ge Se Ge BFFs Be Ge Se Be Se Ge SH Se SH Se Se Be Se Se Se Ge Ge Se Se Ge Ge Se Se Ge Se SH Se Se Se ee Se Se FH Se Se Se eas 


SOOOSOOOCOCOCOCOCOOCOCOOCOSOOCO OOOO OCOOCOOOSOOOOCOOOOSDOOOOOOOOOOOO 
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6 
6 THEN 
6 BEGIN 

37 6 ERMS (RNFFNA 

38 64 .FS_START (IRA), 

39 65 CHSDIFF (.FS_NEXT (IRA), .FS_START (IRA)) = 1); 

40 6 RETURN 

741 6 ND; 

742 68 
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$8 ‘Detect ‘'>>"’ and complain 
'The check is done , lookin back at what's been gent tea see if 


2 


Oooo 


| ae 
71 ‘all there is is a justification mark, to separate words. milarily, | 
ye 'the case of a one-character entry is taken into account. . 4 
087 BEGIN 4 
74 LOCAL | 
RR TEMP BTR7© CHSPLUS( FS_NEXT (MRA), =3) 'Poj f = 
= ‘ #53); 'Point to start of a sequence. - | 
0877 4 IF (CHSRCHAR_A (TEMP_PTR) EQL RINTES) i . ; | 
78 4 AND (CHSRCHAR (.TEMP_PTR) EQL %C'J') ! + | 
O80 ; AND .SCA_FC 2. 
Hi 4 BEGIN gj 
bass 4 ERMS ridir ; 
O88 4 START (IRA), : 
884 4 cheDirr oFS_NEXT CIRA), .FS_START (IRA)) = 1); : 
0885 4 RETURN 3 
0886 4 D 3 
0887 END; 3 
0888 3 
0889 IF .SCA_WRD_CPEND NEQ RINTES : 
0891 ENDWRD (FALSE, FALSE, FALSE) 3 
089 SE 3 
089 ae | trailing spaces : 
0894 EGIN 3 
0895 LOCAL 3 
+t 3 TEMP_PTR; : 
0898 3 FS_NEXT (MRA) = ae} we (.FS_NEXT (MRA), =-.SCA_WRD LST_ SP); : 
0899 FS-LENGTH (MRA) = .FS _LENGT H” (MRA) = SCA _WRD _CST _5P; 3 
44 Sch w RDUST SP = 0; : 
0902 3 'Check for wierd yin s sree as PE Ss only), or .X a>**(spaces)>etc ; 
0903 3 TEM®_PTR = CHS$PLUS( NEXT 3; ‘Point to start of a sequence. : 
09046 5 IF CTCHSRCHAR A TEMP TR) ear wit’ ) é 
0905 4 AND (CHSRTHAR (.TEMP_PTR) EQL %C'J') etches -X whatever>**(spaces) >whatever 3 
44) 3 OR (.FS_START(MRA) EQL .FS ENEXTCMRAD) ‘Catches .X**(spaces) >whatever : 
0908 4 BEGIN 
0909 4 ERMS (RNFFNA 
0910 4 .FS START (IRA), 
ae ? CHSBIFF (.FS_NEXT (IRA), .FS_START (IRA)) = 1); 
318 4 END 
aie END; 
ar ‘An end of word porker _Seoereten character sequences. 
917 FS_WCHAR (MRA, RINT 
14 FS-WCHAR ( MRA, zc’ : 
91 FS _WCHAR (MR — = 
920 TSF_INT_HL = .TSF_INT HL + 3; 
921 TSF_JUS_CNT = . TSF_ JuS_CNT + 1; 
9 § SCAq WRD_ “PNTR = .FS “NEXT < (MRA) 
9 END; ‘End of SUBXR 
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SPLITS,NOWRT ,NOEXE,2 

\SUBINDEX\ 

SCODES,NOWRT,2 


mae ave R2,R3,R4,R5,R6,R7 


1$ 
R5, KHAR 
#1, IRA+12 


, ERM 
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gs 
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(TEMP_PTR) , #74 
SCA+148, 8$ 
SCA+280, R5 


1% 8) 


Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Ge Se Ge Se Fe Se Ge Ge Ge Ge Ge Fe Ge Se Fe Se Se Se Se Se Se Se Fe Be Fe Se Se Se Fe Se Be Se Se Se Se 


0812 


0837 


; 0839 
; 0843 
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; 799 924 1 

; 800 925 1 

; 801 9 § 1! 
; 80 9 2 
; 80 9 8 1! 
; Bee 9 1! 
3 5 930 1! 
; 80 931 1! 
: 80 9 § 1! 
: 808 9 1! 
; 809 0934 1! 
3 519 8 > 2% 
s B11 9 $ 7 3 
; aig 09 1! 
; 81 0938 #1! 
3 aie 0939 1! 
: 815 0940 1! 
3 518 0941 1! 
; #8 0942 1! 
; 818 0943 1! 
; «4819 0944 1! 
; 820 0945 1 

: 821 0946 § 

3 BS¢ 0947 

: 82 0948 

3: 824 949 

; 825 950 

: 826 951 

; 827 326 

; 828 95 § 

; 829 954 

; 8350 955 2 

3; «6831 956 

3 S36 957 

; 83 958 

; 834 959 

; 6835 960 3 

3; 836 961 § 

3; 837 206 

; 838 96 

3; 839 964 

; art 0965 

: 41 096 

: 4g 96 

: 4 968 

> B44 969 

3 45 970 

: ry 971 

; 84 97 

: 848 97 

: 849 974 

; 850 975 
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: 852 97 
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GLOBAL ROUTINE XR 


: NOVALUE = 


'44¢ 


FUNCTIONAL DESCRIPTION: 
This routine is called when an Index fla 
called when a space is seen at the end o 
to be entered into the index. 

FORMAL PARAMETERS: None 

IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 

BEGIN 
IF .KHAR EQL .FLGT CIND_FLAG, FLAG_CHARACTER] 
KCNS (); 


f indexing is already on, terminate current 
t into the idex. 


' 
ij 
F  SCALX.FLAG 


I 
THEN 


BEGIN 
OUTXPH (); 
RETURN; 
END 
ELSE 
'Turn on indexing if hoger ice is wanted. 
CA_X_FLAG = .SCA_DO_IND; 
ae ‘SCA. X_FLAG 


'The index flag has just been turned on. 
‘work areas for the Index flag. 


FS_INIT (XMRA); 
INCR I ‘se 9 TO TSF_SIZE = 1 DO 
XTSF C.1J = 0; 


END; 


is seen. It is also 
a word, and that word is 


'Position past Index flag 


phrase and enter 


‘Output word to index. 


Initialize the 


END; ‘End of XR 
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a, 
DOFL Process flags 16-Sep-1984 00:13:49 VAX-11 Bliss-32 V4.0-742 P3 
y04>600 Module Levet Declarations 12-828- 1382 98:08:00 DISKSVMSMASTER: CRUNOFF .SRCJDOFLG. BLI;1 es é 


0056 608 eENTRY XR, Save R2,R3,R4,R5 s 0924 3 
5 00000000G EF 9E 0000 MOVAB H : ; 
4 000000006 EF 9€ 0000 MOVAB SCA+156, R4 : : 
3 900000006 EF 9E 0019 MOVAB X R$ : ; 
00 G EF oF 001 MOVAB IRA+{2, R2 : ; 
00000000G_ EF SF p 0038 nae KHAR, FLGT+112 3: 0948 : 
¢3 ig 00 TSTL IRA+12 ; 0950 : 
14 00029 BGTR 1$ : F 
65 00G 8F 9A 8 B MOVZBL oRINTES KHAR : 3 
62 a. oe F MNEGL #1, IRA+12 : $ 
09 11 00032 BRS $ 3 
65 F8 B2 9A 00034 1$: MOVZBL @IRA+4, KHAR : 3 
FB OA dg BR0 8 INCL i ae : 3 
62 07 00038 DECL 31g 3 : 
08 64 £9 B08 D 2$: BLBC wah 6, 3$ : 0955 ; 
00000000G_ EF 00 FB 00040 CALLS #0, OUTXPH 3; 0958 : 
04 00047 RET 3; 0957 
64 0c AG 01 03 EF 00048 3$ EXTZV #3, #1 Shee SCA+156 ; 0963 
18 64 £9 0004E BLBC CAs +136, > 0965 
OC A3 D4 00051 CLRL +12 ; 0970 
63 10 <A3 9E 00054 MOVAB NARAS{6, XMRA : 
04 A3 63 DO 00058 MOVL XMRA, XMRA+4 $ 
50 D4 0005C CLAL : 097 
OOOOO000GEF4O D4 4 Fa 4$: CLAL XTSFCIJ 3; 097 
F5 0 27 ~F3 9006 AOBLEQ #39, I, 4$ 3 
04 90069 5$ RET ; 0977 
; Routine Size: 106 bytes, Routine Base: S$CODE$S + 0567 
3; $853 0978 «#1 
3; 854 0979 1 END 'End of module 
; 855 0980 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
; SOWNS x 3 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 1489 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
ee ee Pe eee ne Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 


; Elapsed Time: 01: 1329.0 
3; Lines/CPU Min: 7 

3 ey Ah ge 2634 

; noe | Used: 360 pages 
: a 


; Compilation Complete 


7 
‘S00 nodele kanal boxtoret tune 18-500 seer 198e P8ibaico | UNScSUNGMASTERsCRONOFe “SRcIDOFLG.eLIN;™ «ee ve 
Bec hoy esa eet ae rn a : 
; COMMAND QUALIFIERS 
Size: 1489 code + 56 data bytes : 
Run Time: 0.3 é 


; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:DOFLG/OBJ=OBJ$:DOFLG MSRC$:DOFLG/UPDATE=(ENHS$:DOFLG) 


DIGITAL EQUIPMENT CORPORATION 
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